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ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


ai — . ) 
| H 1 | 
| *#FILE**1D**PRMACCAL | 
| | 
Kee | 
PPPPPPPP RRRRRRRR mM MM AAAAAA CCCCCCCC CCCCCCCC AAAAAA LL 
PPPPPPPP RRRRRRRR MM MM AAAAAA CCCCCCCC CCCCCCCC AAAAAA LL 
PP PP RR RR MMMM MMMM AA AA CC cc A AA LL 
PP PP RR RR MMMM MMMM AA AA CC cc AA AA LL 
PP PP RR RR MM MM MM AA AA CC CC AA AA LL 
PP PP RR R MM MM MM AA AA CC CC AA AA LL 
PPPPPPPP RRRRRRRR mM MM AA AA CC cc AA AA LL 
PPPPPPPP RRRRRRRR MM MM AA cc cc AA AA LL 
PP RR RR MM MM AAAAAAAAAA (CC CC AAAAAAAAAA LL 
PP RR RR Mia MM AAAAAAAA cc cc AAAAAAAAAA LL 
PP RR RR aM MM AA AA CC cc AA AA LL sank 
PP RR RR mM MM AA AA CC cc AA AA LL end 
pp RR RR MM MM AA AA CCCCCCCC CCCCCCCC «AA AA LLLLLLLLLL sgn ye 
PP RR RR MM MM AA AA CCCCCCCC CCCCCCCC OAA AA LLLLLLLLLL aedenih 
LL IIIII1 SSSSSSSS 
LL III] SSSSSSSS 
LL II Ss 
LL II SS 
LL I] Ss 
LL II ss 
LL II SSSSSS 
LL I] SSSSSS 4 
LL I] $s s 
LL I] Ss F 
LL II Ss E 
LL I] ss L 
LLLLLLLLLL JIIIIII «= SSSSSSSS L 
LLLLLELLLL eeeeel SSSS5SSS / 
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EDTSPRMACCAL = test for macro token ibs. -Sep-19 r }: 19 +30 VAX-11 Bliss-32 v4. wits Page 1 
j 14-Sep-1984 12:24: DISK KSVMGH STER: CEDT.SRCJPRMACCAL.BLI;1 (1) 
H 1 001 ZTITLE “EDTSPRMACCAL = test for macro token’ 

3 § Oe MODULE EDTSPRMACCAL ( ! Test for macro token 

; ? Ber gDEN NT = 'v04=-000' ! File: PRMACCAL.BLI Edit: JBS1006 
2 5 't 14 BEGIN 

: ; s'4'84 ! SSSR ees ae Soe ie iste nce menae 
o° * + 
3 9 Baye 1 !'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
H 10 010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
3 13 i ! ‘* ALL RIGHTS RESERVED. ® 
3 it ® 
; 18 $018 1 !* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPtED * 
s 1% 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 15 0015 1 !* INCLUSION OF THE ABOVE Spit NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 0016 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 + tt } :* TRANSFERRED. * 
Z '® ® 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
$ 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $$ O0s¢ : :* CORPORATION. * 
3 ‘® ® 
; $¢ B05 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 5 0025 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
;  & 0026 1 !* * 
ee sy 0027 1 !* * 
: 28 QCO28 1 eee eee eee RARER EAE EAA 
3 9 0029 1! 

; $3 $080 1 

. a 0031 1 i++ 

5; oh 1 ! FACILITY: EDT == The DEC Standard Editor 

3 2 00335 1! 

: 4 0034 1 ! ABSTRACT: 

2. 0035 1! 

3 36 0036 1! Test for macro token. 

; 0037 1! 

; M3 aie ' , ENVIRONMENT: Runs at any access mode - AST reentrant 

; 8 | re ! AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 

3 $¢ 0042 1 ! MODIFIED BY: 

Bae 0043 1! 

; «6446 0044 1 ! 1-001 - Original. DJS 25-Feb-1981. This module pint created by 

: 45 0045 1! extracti ng routine MACRO_CALL from module PARSER. 

: 46 0046 1 ! 1-002 - Regularize headers. JBS 12-Mar-19 

; 67 0047 1 ! 1-003 - Implement new TBCB with macro Fornsere inside. Remove 

s 448 048 1! references to the mac pet Ock. 6-Aug-8 

: 49 049 1! 1-004 - peneve call to di 9 t testi ng routine, replace with a 

: 30 0050 1! gsed on a table of character iilastion.” JBS 20-Jul-1982 

: 1 0051 1! 1-005 - add vr 0 support conditional. JBS 11-Feb- 

5 26 Boag ! 1-006 - Remove an extra dot added in edit 1-005. JBS 03-Mar-1983 

| 54 0054 1 


EDTSPRMACCAL EDTSPRMACCAL = test for macro token 
v04-000 
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Declarations 14-Sep 4 12:24:10 


2 
DISKSVMSMASTER: CEDT.SRCJPRMACCAL.BLI;1 (2) 


: 37 4 5 | XSBTTL 'Declarations' : 
he 087 1 ! TABLE OF CONTENTS: : 
; 058 1! ‘ ; 
; 8 9 1 ; 
; «(61 060 1 REQUIRE "EDTSRC:TRAROUNAM' ; : 
<< 0499 1 : 
3 6 0500 1 : 
; 86646 0501 1 EDTSS$PA_TSTMACCAL; ° 
3; 665 090¢ 1 : 
ee 0804 | i INCLUDE FILES 
: H c : e 
; «68 9905 1 i : 
; «#89 506 1 ‘ 
; A 0307 | REQUIRE 'EDTSRC:EDTREQ'; : 
; f gees } REQUIRE “EDTSRC:PARLITS'; ‘ 
ee 0958 1 LIBRARY "EDTSRC:SUPPORTS'; : 
Bee 3494 1 : 
; 0930 1! : 
; 77 0931 1 ! MACROS: : 
; «78 O93¢ 1 i : 
See 093 1! NONE : 
; 80 0934 1! : 
3. (CB) 0935 1 ! EQUATED SYMBOLS: : 
i. 0936 1! ‘ 
3 0937 1! NONE : 
; 0938 1! : 
; 85 0939 1 | OWN STORAGE: : 
; we 0940 1! : 
; «68? 0941 1! NONE : 
; «88 0942 1! : 
; 0943 1 ! EXTERNAL REFERENCES: : 
; 0944 1! : 
; wi 0945 1! In the routine ‘ 


FORWARD ROUTINE 


Page 


' Get the next character from the input Line 
! Semantic routines referenced in the parser tables 


K 1 
CRT SERAACCAL EDTSPRMACCAL = test for macro token 16-Sep-1984 9 
v04-000 EDTSSPA_TSTMACCAL = test for macro token 14-Sep-1984 
: +4 O34? } ZSBITL "EDTSSPA_TSTMACCAL = test for macro token' 
ae 948 1 GLOBAL ROUTINE EDTSSPA_TSTMACCAL ! Test for macro token 
; 0949 1 s 
: > or 950 1 
; 951 1 !e4 
: 99 952 1 ! FUNCTIONAL DESCRIPTION: 
; 100 955 1! 
3; 6101 954 1! This routine checks to see if the current token is the name of a macro, 
3 106 0955 1! and returns 1 it is, f not. A List of macro descr »tion records is 
3 7 0357 ! scanned and the current token is compared against eacn of them. 
s 105 956 1 ! FORMAL PARAMETERS: 
: 106 0959 1! 
3 107 0960 1! NONE 
: 108 0961 1! 
3 109 0962 1 ! IMPLICIT INPUTS: 
3; 110 0965 1! 
> 111 0964 1: EDT$$A_CMD_BUF 
3 Wg 0965 1! EDTSSA_BUF_LST 
sh 0966 1! EDT$$G_PA_CURCMD 
3 6114 0967 1! EDTSS$A_PA_CURTOK 
: 115 0968 1! EDT$$G_PA_CURTOKLEN 
: 116 0969 1! EDT$$G_PA_TOKCLASS 
Str 0970 1! 
3; 6118 0971 1 ! IMPLICIT OUTPUTS: 
3 #119 0972 1! 
; 120 0973 1! NONE 
3 \$) 0974 1! 
2* 4 ¢ 0975 1 ! ROUTINE VALUE: 
s te 0976 1! 
: 126 0977 1! 1 = current token is a macro 
g \$? 344 : 0 = current token is not a macro, or the parse stack overflowed 
: \¢f 0980 1! SIDE EFFECTS: 
; 128 0981 1! 
3 144 0982 1! NONE 
s 130 0983 1! 
: 13) 0984 1 !-- 
eo ¢ 0985 1 
5 137 0986 BEGIN 
: 3 0987 
g 355 0988 EXTERNAL ROUTINE 
: 136 989 EDTSSPA_SCANTOK : NOVALUE, ' Get the next token 
‘4 990 EDT$$PA_GETCH : NOVALUE, 
; 133 oad EDTSSPA_SEMRUT; 
3; 140 099 exteom, ; 
: 141 0994 EDTSSA_CMD_BUF , ! Pointer into command buffer. 
; 146 0995 EDTSSA_BUF LST, ! Header for all buffers 
: 14 99 EDTS$$G_PA_CURCMD : REF NODE_BLOCK, 
3 (146 99 EDTSSA_PA_CURTOK, ' start of the current token 
3 16? 144 EDT$$G_PA_CURTOKLEN, ! Length of current token 
: "8 L 1000 @ XIF SUPPORT_VT220 
; «4148 1001 ZTHEN 
: 149 1002 EDT$$B8_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], 


! Information about characters 
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=1984 01:19:30 VAX=11 Bliss-32_v4.0-74 p P 
or1eee seii8 | PeeehdRAL SHER ecebe sheSpamaccat.ei6k@” «3s 


re 
i | 
me 


EDTS$$G_PA_TOKCLASS; ! class of current token 

LOCAL 
CP, 

CH, 

LEN, 

BUF : REF TBCB_BLOCK; 

c (.EDTSS6_PA_TOKCLASS EQL CL_NAME) 

EGIN 

LEN = 14 dh eS PA_CURTOKLEN 


3 = CHS$PT “EDTSSA_ PA “EURTOK, -EDT$$G_PA_CURTOKLEN); 
CH = CHSRCHAR (.CP); 
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0 
L 10 Z1F SUPPORT_VT220 
8 XZTHEN 
8 eects (.EDTS$B_CHAR_INFO C.CH, 0, 0, 8, 0] EQL %X'FO") ! Digit 
y 10 
U ° WHILE ((.CH GEQ %C°O") AND (.CH LEQ %C°9")) DO 
0 
0 BEGIN 
03 CH = CHSA_RCHAR (CP); 
03 LEN = .LEN + 1; 
03 ; 
03 
b3 BUF = .EDTSSA_BUF_LST; 
b3 WHILE (.BUF NEQ 0) DO 
os BEGIN 
04 IF coeee. -LEN, .EDT$S$A_PA_CURTOK, .BUF CTBCB_NAME_LEN], BUF CTBCB_NAME])) AND ‘ 
04 (,BUF CTBCB_{S_MAC) EQL 1) 
04 BEGIN 
04 '¢ 
8 We have found a macro corresponding to this token. 
04 : 


IF (EDTSSPA_SEMRUT (CINI_COM, COM_MAC_CALL) EQL 0) THEN RETURN (0); 


kt a kt et ek kk et td a = a ts a 


KARGVLSSSLESRAVLSESSVLEALANV LS SSNS ARAN AS SSISTFAVILSSSLEALUTLS 


PEAS PNMmwn FUE & BANA BBA WNW III Corrorrorororornororonor 
Be re 
wn" m 
~ - 
v- 
m 


° . 
e oe 
. . 
o 6 
e © 
o e 
. . 
© o 
. 2 
ee a 
. . 
oe e 
. . 
e o 
° . 
8 e 
° . 
= e 
. . 
e e 
. + 
« e 
. . 
s e 
. . 
oO o 
. . 
o e 
. oo 
o e 
os . 
o e 
. . 
6 ° 
. . 
e o 
. . 
ro e 
. . 
a e 
. . 
oO e 
. . 
ce e 
. . 
e e 
7 . 
e * 
. . 
o o 
. . 
6 e 
. . 
o e 
. . 
a e 
. . 
° e 
. . 
° eo 
. ° 
° e 
. . 
e e 
. . 
oO e 
. . 
6 a 
. . 
eo a 
. . 
- o 
. . 
a oO 
. . 
° we 
. . 
. e 
+ . 
oe e 
. . 
e o 
. . 
oe e 
. . 
° o 
. . 
o o 
os . 
° . 
. . 
2 cm 
. . 
° e 
oe . 
e a 
. a 
e e 
. « 
° o 
. . 
a e 
. 2 
e e 
. . 
o a 
. . 
oO e 
. . 
eo e 
. 
e e 
. . 
e . 


05 EDT$$G_PA_CURCMD CRANGE1] = .BUF; 

05 EDTSSA_ me eur = CP; 

05 EDISSPA 6 

05 EDT SEPA, SEANTOR oD: 

05 RETURN 71); 

05 END; 

aae 

b2 ‘ Update the pointer to the next buffer which is defined as a macro. 
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4 1 
EDTSPRMACCAL EDTSPRMACCAL = test for macro token 16-Sep-1984 01:19:3 VAX-11 Bliss-32 V4. 

04000 EDTSSPA_TSTMACCAL = test for macro token 12-8601 382 93352398 DISKSVMSMASTER:CEDT. OSRCIPRMACCAL. BLI; had (33 
; 207 1060 4 BUF = .BUF CTBCB_NEXT_BUF); ; 
; 208 1061 END; 3 
; 209 1906 $ 
; 10 106 END; 3 
sell 1064 3 
3 \¢ 1065 RETURN (0); 3 
>: 21 1066 END; ! of routine EDTS$PA_TSTMACCAL : 
-TITLE EDTSPRMACCAL EDTSPRMACCAL = test for macro toke ‘ 
IDENT \V04-000\ : 
-EXTRN EDTSS$PA_SCANTOK $ 
-EXTRN EDTSS$PA-GETCH, EDTSSPA_SEMRUT : 
EXTRN EDT$S$A_CMD_BUF, EDT$SA~BUF_LST F 
-EXTRN EDTS$$G_P ° rURCHD ; 
-EXTRN EDTSS$A_PA_CURTOK 3 
EXTRN EDT$$G_PA-CURTOKLEN 3 
~EXTRN EDTS$$B_CHAR_INF : 
-EXTRN EDTS$$G_PA_TOKCLASS : 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 : 
OOFC 00000 -ENTRY EDTSSPA TSTMACCAL,, Save R2,R3,R4,R5,R6,R7 ; 0948 : 
57 000000006 00 °F 00002 MOVAB EDTS$$A_PA_CURTO *R7 3 3 
000000006 ” ° 444 ert DTS$6_ PA_ FORCLASS 3; 1013 : 
50 000000006 00 6 00011 MOVL § EDT$$G_PA_CURTOKLEN, RO + 1016 ; 
56 50 dO 00018 MOVL RO, L 3 ; 
55 67 50 Ci 00018 ADDL3 ~=RO EDTSSA_ PA_CURTOK, CP 3; 1017 5 
50 65 9A OO001F MOVZBL (CP) : 1018 : 
FO 8F 0000000060040 91 00022 1$: CMPB ED Ts$e. CHAR. INFOCCH], #240 ; 1023 3 
92 12 it B BNEQ es 3 F 
5 06 0002D INCL cP : 1031 - 
50 65 9A 0002F MOVZBL (CP), CH 3 3 
56 06 B85 2 INCL LEN 3 1038 3 
FS 11 000 BRA 1$ 3 16 F 
54 00000000G 00 0 00 ¢ MOVL §DTSSA_BUF _LST, BUF : 1035 3 
4F 1 003D 35$ BEQL $ 3; 1037 3 
51 67 00 0003F MOVL EDTS$S$A_PA_CURTOK, R1 : 1040 3 
50 2C AS QA onee MOVZBL 44(BUFY ; $ 
50 00 61 56 2D 0004 CMPCS LEN, (R1), #0, RO, 45(BUF) : : 
2D «AG B38 3 3 
39 12 4D BNEQ 4$ : 3 
01 2B «AG O91 ~O004F CMPB 43(BUF), #1 : 1041 3 
33 12 0005 BNEQ 4$ 3 3 
19 DD 000 PUSHL #25 ; 1048 $ 
14 DD 000 PUSHL #20 : 3 
00000000G 00 ‘ F 059 CALLS #2, EDTSSPA_SEMRUT 3 3 
D 368 TSTL R : : 
A 1 62 BEQL 5$ ; 3 
50 000000006 00 OD MOVL Abas t4 + CURCMD, RO ; 1050 3 
0% A 4 D B MOVL BUF : 3 
seseeante 0 a eae We) |: 
$8 iit 0 FB S076 CALLS Ay EDTSS$PA_SCANTOK : 1988 ; 


EDTSPRMACCAL 
104-000 


; Routine Size: 


+} eRMAccaL = test for macro token 


DTSSPA_TSTMACCAL = test 


50 


145 bytes, 


1067 1 
1068 1 !<BLF/PAGE> 


Routine Base: 


or macro token 


01 

26 AG 
AF 

50 
EDTSCODE 


1$:§ 


ep- 
ep- 


1982 93:32:48 


MOVL 
RET 
MOVL 
BRB 
CLRL 
RET 


#1, RO 
qg (eur). BUF 
RO 


yt xoume 


Liss-32 V4.0-7 
MASTER: CEDT.SRC 


————— 
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108 
1066 


EDTSPRMACCAL EDTSPRMACCAL = test for macro token 16-5¢ -1984 9: VAX-11 Bliss-32 V4 
704-000 EDTSSPA_TSTMACCAL = test for macro token 300-1 3h 93; My 78 DISKSVMSMASTER: CEDT 
s Ou 1069 1 END ! of module EDTSPRMACCAL 

: 216 1070 1 ¥ 

: 219 1071 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: _EDISCODE 145 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

Se ee ee ee i ee woe Syabe(s soecwen Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 75 19 40 00:00.2 

> ~$255$DUA28:CEDT. SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

> 7$255$DUA28:CEDT.SRCJSUPPORTS.L 32; 1 2 1 50 5 00:00.1 


2 Pospepentiaaedaeetaial aap ccna ieactananata caine certains ons liaeslines accaetes inet MSRC$:PRMACCAL .BLI/UPDATE=(ENHS: PRMA 


piace 
un Time 


plans Time: 
Lines/CPU Min: 


127 pages 
Compication Complete 


COMMAND QUALIFIERS 


0 data bytes 


ett Pa 
«SRC JPRMACCAL.BLI;1 


~ DIGITAL EQUIPMENT CORPORATION 
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